home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
003
/
dbarc.arc
/
DBARC.PRG
Wrap
Text File
|
1985-08-26
|
5KB
|
193 lines
*
SET HEADING OFF
SET SAFETY OFF
SET TALK OFF
* Program..: ARC.PRG Ver 1.0
* Author...: Jim Ray
* Date.....: 08/26/85
* Notice...: Copyright 1985, All Rights Reserved
* Notes....: This program uses ARC430
* Notes....: If you like this program send a donation of $10.00 to
* Notes....: Balanced Comuter Systems
* Notes....: PO Box 1429
* Notes....: Tustin,Ca. 92681
* Notes....: You can make any modifications you want in the program.
DO WHILE .T.
CLEAR ALL
CLEAR
@ 1, 0 SAY "========================================"
@ 1,40 SAY "========================================"
@ 2, 0 SAY "||"
@ 2,11 SAY "A R C F I L E U T I L I T Y P R O G R A M VER 1.1"
@ 2,78 SAY "||"
@ 3, 0 SAY "========================================"
@ 3,40 SAY "========================================"
@ 4, 0 SAY "||"
@ 4,78 SAY "||"
@ 5, 0 SAY "||"
@ 5,78 SAY "||"
@ 6, 0 SAY "||"
@ 6,78 SAY "||"
@ 7, 0 SAY "||"
@ 7,78 SAY "||"
@ 8, 0 SAY "||"
@ 8,78 SAY "||"
@ 9, 0 SAY "||"
@ 9,78 SAY "||"
@ 10, 0 SAY "||"
@ 10,78 SAY "||"
@ 11, 0 SAY "||"
@ 11,78 SAY "||"
@ 12, 0 SAY "||"
@ 12,78 SAY "||"
@ 13, 0 SAY "||"
@ 13,78 SAY "||"
@ 14, 0 SAY "||"
@ 14,78 SAY "||"
@ 15, 0 SAY "||"
@ 15,78 SAY "||"
@ 16, 0 SAY "||"
@ 16,78 SAY "||"
@ 17, 0 SAY "========================================"
@ 17,40 SAY "========================================"
@ 5,20 SAY " 0. exit"
@ 6,20 SAY " 1. Add files to archive"
@ 7,20 SAY " 2. Move file to archive"
@ 8,20 SAY " 3. Delete files from archive"
@ 9,20 SAY " 4. Extract files from archive"
@ 10,20 SAY " 5. Run files from archive"
@ 11,20 SAY " 6. Convert entry to new packing method"
@ 12,20 SAY " 7. List files in archive"
@ 13,20 SAY " 8. Test archive integrity"
@ 14,20 SAY " 9. Instructions"
STORE 10 TO selnum
DO WHILE selnum < 0 .OR. selnum > 9
STORE " " TO sel
@ 17,33 SAY " select : : "
@ 17,42 GET sel PICTURE "#"
READ
STORE VAL(sel) TO selnum
ENDDO
DO CASE
CASE selnum= 0
SET BELL ON
CLEAR ALL
RETURN
CASE selnum= 1
STORE " " TO VAR
STORE " " TO FILE
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'Input file name here with EXT'
@ 20,40 GET FILE
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -A &ARC &FILE
WAIT
CASE selnum= 2
* Move file to archive
STORE " " TO VAR
STORE " " TO FILE
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'Input file name here with EXT'
@ 20,40 GET FILE
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -D &ARC &FILE
WAIT
CASE selnum= 3
* Delete files from archive
STORE " " TO VAR
STORE " " TO FILE
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'Input file name here with EXT'
@ 20,40 GET FILE
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -D &ARC &FILE
WAIT
CASE selnum= 4
* Extract files from archive
STORE " " TO VAR
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -X &ARC
WAIT
CASE selnum= 5
* Run files from archive
STORE " " TO VAR
STORE " " TO FILE
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'Input file name here with EXT'
@ 20,40 GET FILE
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -R &ARC &FILE
WAIT
CASE selnum= 6
* Convert entry to new packing method
STORE " " TO VAR
STORE " " TO FILE
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'Input file name here with EXT'
@ 20,40 GET FILE
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -C &ARC &FILE
WAIT
CASE selnum= 7
STORE " " TO VAR
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'No extention is needed here'
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -L &ARC
WAIT
CASE selnum= 8
* Test archive integrity
STORE " " TO VAR
@ 19,10 SAY 'Input the archive name here: '
@ 19,40 GET VAR
@ 20,10 SAY 'No extention is needed here'
READ
STORE TRIM(VAR) + ".ARC" TO ARC
CLEAR
RUN ARC430 -T &ARC
WAIT
CASE selnum= 9
? 'This program is written by Jim Ray of Balanced Computer Systems.'
? 'It is intended for the use of helping the user when using ARC430.'
? 'The program can be modified to the need of the user,but this program'
? 'can not be sold. I also will not be held responsible for any wierd'
? 'things that might happen when running this program. I have tested'
? 'it out and works great. If you feel like you have benifited from it,'
? 'you can send a $10.00 donation to PO BOX 1429 TUSTIN, CA. 92681.'
? 'This one program is the first but not the last of good dbase III'
? 'utiliy programs. I hope you get allot of use from it.'
? ' '
? 'If you have any problems with the commands, go into the system and'
? 'type ARC430 and this will list out the format needed. Also no EXT '
? 'is needed with when putting in the file.arc.'
WAIT
ENDCASE
ENDDO T